home *** CD-ROM | disk | FTP | other *** search
/ The X-Philes (2nd Revision) / The X-Philes Number 1 (1995).iso / xphiles / hp48hor1 / train.src < prev    next >
Text File  |  1991-10-14  |  1KB  |  35 lines

  1. %%HP: T(3)A(D)F(.);
  2. @ TRAIN, by Jeremy Smith
  3. \<< # BFh # 40h BLANK { # 3Ch # 0h } LCD\-> REPL
  4.     PICT STO { # 3Ch # 0h } PVIEW DEPTH 190 \-> depth x
  5.   \<<
  6.     WHILE x
  7.     REPEAT PICT x R\->B # 7h 2 \->LIST
  8.     @ ensure the next GROB line hex numbers are on one line with no spaces!
  9.     GROB 60 7 00E3000000000000E163000000000000CC6100CFFF8FFF30CFF5F7CA
  10.               AA8AAA20EFF7F7DFFBAFFF20FFFFFFFFFFFFFF70CCC1630303060C00
  11.     REPL
  12.       IF RAND 9 * 5 - R\->B B\->R
  13.       THEN
  14.         IF DEPTH depth - DUP
  15.         THEN RAND * ROLL PIXOFF
  16.         ELSE DROP
  17.         END
  18.       END 'x' DECR DROP
  19.       IF 1 FS?C
  20.       THEN x 4 + R\->B # 7h 2 \->LIST PIXON
  21.         x 6 + R\->B # 5h 2 \->LIST DUP PIXON
  22.         x 7 + R\->B # 5h 2 \->LIST DUP PIXON
  23.       END
  24.       IF RAND 10 * 9.45 - R\->B B\->R
  25.       THEN 2112 DUP .28 BEEP .2 WAIT .4 BEEP
  26.       END
  27.       IF RAND 9 * 7.7 - R\->B B\->R
  28.       THEN 1 SF x 4 + R\->B # 7h 2 \->LIST PIXON 
  29.         x 4 + R\->B # 6h 2 \->LIST DUP PIXON
  30.         x 5 + R\->B # 6h 2 \->LIST DUP PIXON
  31.       END
  32.     END DEPTH depth - DROPN 1 CF
  33.   \>>
  34. \>>
  35.